Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/aolcha1g/fun_with.frm

Text File | 1999-09-05 | 18KB | 581 lines

VERSION 5.00
Begin VB.Form Form1
   Caption         =   "Teco's ""Fun With Text"" Examples"
   ClientHeight    =   6390
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7665
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   6390
   ScaleWidth      =   7665
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame13
      Height          =   975
      Left            =   0
      TabIndex        =   41
      Top             =   5400
      Width           =   7575
      Begin VB.Label Label15
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "FOR ALL YOUR VB NEEDS:   http://www.planet-source-code.com/vb/"
         BeginProperty Font
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   44
         Top             =   720
         Width           =   7335
      End
      Begin VB.Label Label14
         Alignment       =   2  'Center
         Caption         =   "Special Thanks also goes out to ANTI for their Repetitions Counter Coding Example"
         Height          =   255
         Left            =   120
         TabIndex        =   43
         Top             =   480
         Width           =   7335
      End
      Begin VB.Label Label13
         Alignment       =   2  'Center
         Caption         =   "Special Thanks goes out to JASON MONROE for his Encrypt/Decrypt Coding Example."
         Height          =   255
         Left            =   120
         TabIndex        =   42
         Top             =   240
         Width           =   7335
      End
   End
   Begin VB.Frame Frame11
      Caption         =   "Example #6"
      Height          =   1695
      Left            =   3960
      TabIndex        =   34
      Top             =   3600
      Width           =   3615
      Begin VB.CommandButton Command11
         Caption         =   "Counter Letter ""E"""
         Height          =   375
         Left            =   1920
         TabIndex        =   40
         Top             =   1200
         Width           =   1575
      End
      Begin VB.CommandButton Command10
         Caption         =   "Count Letter ""O"""
         Height          =   375
         Left            =   120
         TabIndex        =   39
         Top             =   1200
         Width           =   1815
      End
      Begin VB.Frame Frame12
         Height          =   615
         Left            =   120
         TabIndex        =   36
         Top             =   480
         Width           =   3375
         Begin VB.TextBox Text6
            Height          =   285
            Left            =   720
            TabIndex        =   38
            Text            =   "Moo Is Definately For You Too"
            Top             =   240
            Width           =   2535
         End
         Begin VB.Label Label12
            Caption         =   "String:"
            Height          =   255
            Left            =   120
            TabIndex        =   37
            Top             =   240
            Width           =   855
         End
      End
      Begin VB.Label Label11
         Caption         =   "Repetitions                                    (⌐1999 Anti)"
         Height          =   255
         Left            =   120
         TabIndex        =   35
         Top             =   240
         Width           =   3375
      End
   End
   Begin VB.Frame Frame9
      Caption         =   "Example #5"
      Height          =   1695
      Left            =   0
      TabIndex        =   27
      Top             =   3600
      Width           =   3855
      Begin VB.CommandButton Command9
         Caption         =   "Encrypt"
         Height          =   375
         Left            =   2040
         TabIndex        =   33
         Top             =   1200
         Width           =   1695
      End
      Begin VB.CommandButton Command8
         Caption         =   "Decrypt"
         Height          =   375
         Left            =   120
         TabIndex        =   32
         Top             =   1200
         Width           =   1935
      End
      Begin VB.Frame Frame10
         Height          =   615
         Left            =   120
         TabIndex        =   29
         Top             =   480
         Width           =   3615
         Begin VB.TextBox Text5
            Height          =   285
            Left            =   720
            TabIndex        =   31
            Text            =   "Technical Communications"
            Top             =   240
            Width           =   2775
         End
         Begin VB.Label Label10
            Caption         =   "String:"
            Height          =   255
            Left            =   120
            TabIndex        =   30
            Top             =   240
            Width           =   855
         End
      End
      Begin VB.Label Label9
         Caption         =   "Data Encryption                  (⌐1999 Jason Monroe)"
         Height          =   255
         Left            =   120
         TabIndex        =   28
         Top             =   240
         Width           =   3615
      End
   End
   Begin VB.Frame Frame7
      Caption         =   "Example #4"
      Height          =   1695
      Left            =   3960
      TabIndex        =   20
      Top             =   1800
      Width           =   3615
      Begin VB.CommandButton Command7
         Caption         =   "Trim Trailing"
         Height          =   375
         Left            =   1920
         TabIndex        =   26
         Top             =   1200
         Width           =   1575
      End
      Begin VB.CommandButton Command6
         Caption         =   "Trim Leading"
         Height          =   375
         Left            =   120
         TabIndex        =   25
         Top             =   1200
         Width           =   1815
      End
      Begin VB.Frame Frame8
         Height          =   615
         Left            =   120
         TabIndex        =   22
         Top             =   480
         Width           =   3375
         Begin VB.TextBox Text4
            Height          =   285
            Left            =   720
            TabIndex        =   24
            Text            =   "     My The Sky Is Blue To You?   "
            Top             =   240
            Width           =   2535
         End
         Begin VB.Label Label8
            Caption         =   "String:"
            Height          =   255
            Left            =   120
            TabIndex        =   23
            Top             =   240
            Width           =   735
         End
      End
      Begin VB.Label Label7
         Caption         =   "Removing Trailing and Leading Spaces"
         Height          =   255
         Left            =   120
         TabIndex        =   21
         Top             =   240
         Width           =   3255
      End
   End
   Begin VB.Frame Frame5
      Caption         =   "Example #3"
      Height          =   1695
      Left            =   0
      TabIndex        =   14
      Top             =   1800
      Width           =   3855
      Begin VB.CommandButton Command5
         Caption         =   "Reverse String"
         Height          =   375
         Left            =   120
         TabIndex        =   19
         Top             =   1200
         Width           =   3615
      End
      Begin VB.Frame Frame6
         Height          =   615
         Left            =   120
         TabIndex        =